home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapap.plp < prev    next >
Text File  |  1993-11-30  |  15KB  |  444 lines
  1. /************************************************************************
  2. *    ＡＰリストの検索                        *
  3. ************************************************************************/
  4. /*    １２００ｂｐｓのＡＰリスト    */
  5. %set1200{
  6.     %setTEL    {
  7.     SNDMSG({nyuryo_f.snd});
  8.     footnote({1200bpsのAPの電話番号を入力して下さい});
  9.     ap2:=@input({1200bpsのAPの電話番号を入力して下さい});
  10.     };
  11.  
  12.     %NEXT1{
  13.     SNDMSG({erande_f.snd});
  14.     footnote({都市を指定して下さい（１２００ｂｐｓ）});
  15.     select({都市を指定して下さい（１２００ｂｐｓ）},99999,,
  16.         { 宇都宮 },{ap2:={0286-27-0332}},
  17.         { 水  戸 },{ap2:={0292-25-3001}},
  18.         { 土  浦 },{ap2:={0298-23-4680}},
  19.         { 鹿  島 },{ap2:={0299-92-9523}},
  20.         { 東京１ },{ap2:={03-3788-9321}},
  21.         { 東京２ },{ap2:={03-3788-9378}},
  22.         { 府  中 },{ap2:={0423-34-9621}},
  23.         { 立  川 },{ap2:={0425-22-8440}},
  24.         { 八王子 },{ap2:={0426-23-7459}},
  25.         { 相模原 },{ap2:={0427-76-3400}},
  26.         { 千  葉 },{ap2:={043-227-5012}},
  27.         { 川  崎 },{ap2:={044-211-1363}},
  28.         { 横  浜 },{ap2:={045-471-7301}},
  29.         { 平  塚 },{ap2:={0463-22-6821}},
  30.         { 横須賀 },{ap2:={0468-23-6291}},
  31.         { 我孫子 },{ap2:={0471-83-6876}},
  32.         { 船  橋 },{ap2:={0474-31-1470}},
  33.         { 大  宮 },{ap2:={048-649-3021}},
  34.         { 熊  谷 },{ap2:={0485-25-8741}},
  35.         { 名古屋 },{ap2:={052-583-9455}},
  36.         { 浜  松 },{ap2:={053-454-5452}},
  37.         { 豊  橋 },{ap2:={0532-56-0924}},
  38.         { 静  岡 },{ap2:={054-273-2906}},
  39.         { 甲  府 },{ap2:={0552-31-1251}},
  40.         { 沼  津 },{ap2:={0559-63-7703}},
  41.         { 岐  阜 },{ap2:={0582-62-9566}},
  42.         { 大  垣 },{ap2:={0584-81-3474}},
  43.         { 直  接 },{setTEL},
  44.         { 次  項 },{NEXT2},
  45.         { 終  了 },);
  46.     };
  47.  
  48.     %NEXT2{
  49.     SNDMSG({erande_f.snd});
  50.     footnote({都市を指定して下さい（１２００ｂｐｓ）});
  51.     select({都市を指定して下さい（１２００ｂｐｓ）},99999,,
  52.         {   津   },{ap2:={0592-24-6907}},
  53.         { 四日市 },{ap2:={0593-54-2997}},
  54.         { 大阪１ },{ap2:={06-947-7934}},
  55.         { 大阪２ },{ap2:={06-947-7860}},
  56.         {   堺   },{ap2:={0722-22-7931}},
  57.         { 貝  塚 },{ap2:={0724-22-8180}},
  58.         { 和歌山 },{ap2:={0734-31-0965}},
  59.         { 奈  良 },{ap2:={0742-25-0140}},
  60.         { 京  都 },{ap2:={075-255-0977}},
  61.         { 金  沢 },{ap2:={0762-24-2431}},
  62.         { 富  山 },{ap2:={0764-31-4926}},
  63.         { 高  岡 },{ap2:={0766-26-4805}},
  64.         { 大  津 },{ap2:={0775-23-3771}},
  65.         { 福  井 },{ap2:={0776-23-6098}},
  66.         { 神  戸 },{ap2:={078-351-4095}},
  67.         { 姫  路 },{ap2:={0792-22-6254}},
  68.         { 広  島 },{ap2:={082-245-4169}},
  69.         {   呉   },{ap2:={0823-24-7786}},
  70.         { 下  関 },{ap2:={0832-23-5528}},
  71.         { 徳  山 },{ap2:={0834-32-5471}},
  72.         { 宇  部 },{ap2:={0836-34-5334}},
  73.         { 山  口 },{ap2:={0839-24-4722}},
  74.         { 福  山 },{ap2:={0849-27-1530}},
  75.         { 松  江 },{ap2:={0852-27-8761}},
  76.         { 米  子 },{ap2:={0859-22-9206}},
  77.         { 岡  山 },{ap2:={086-292-3607}},
  78.         { 津  山 },{ap2:={0868-28-2194}},
  79.         { 直  接 },{setTEL},
  80.         { 次  項 },{NEXT3},
  81.         { 終  了 },);
  82.     };
  83.  
  84.     %NEXT3{
  85.     SNDMSG({erande_f.snd});
  86.     footnote({都市を指定して下さい（１２００ｂｐｓ）});
  87.     select({都市を指定して下さい（１２００ｂｐｓ）},99999,,
  88.         { 高  松 },{ap2:={0878-37-3375}},
  89.         { 徳  島 },{ap2:={0886-53-2010}},
  90.         { 高  知 },{ap2:={0888-72-9703}},
  91.         { 新居浜 },{ap2:={0897-37-0389}},
  92.         { 松  山 },{ap2:={0899-31-8496}},
  93.         { 福  岡 },{ap2:={092-524-0525}},
  94.         { 北九州 },{ap2:={093-531-0836}},
  95.         { 久留米 },{ap2:={0942-36-1932}},
  96.         { 佐  賀 },{ap2:={0952-23-9091}},
  97.         { 佐世保 },{ap2:={0956-22-3878}},
  98.         { 長  崎 },{ap2:={0958-25-7634}},
  99.         { 熊  本 },{ap2:={096-379-5133}},
  100.         { 大  分 },{ap2:={0975-34-1901}},
  101.         { 裏  添 },{ap2:={098-878-7342}},
  102.         { 宮  崎 },{ap2:={0985-27-4493}},
  103.         { 鹿児島 },{ap2:={0992-50-3670}},
  104.         { 直  接 },{setTEL},
  105.         { 終  了 },);
  106.     };
  107.  
  108.     SNDMSG({erande_f.snd});
  109.     footnote({都市を指定して下さい（１２００ｂｐｓ）});
  110.     select({都市を指定して下さい（１２００ｂｐｓ）},99999,,
  111.         { 札  幌 },{ap2:={011-271-2043}},
  112.         { 函  館 },{ap2:={0138-26-1742}},
  113.         { 苫小牧 },{ap2:={0144-34-3267}},
  114.         { 釧  路 },{ap2:={0154-22-1402}},
  115.         { 帯  広 },{ap2:={0155-24-8061}},
  116.         { 北  見 },{ap2:={0157-31-7425}},
  117.         { 旭  川 },{ap2:={0166-22-7160}},
  118.         { 青  森 },{ap2:={0177-39-1325}},
  119.         { 八  戸 },{ap2:={0178-43-6317}},
  120.         { 秋  田 },{ap2:={0188-63-6682}},
  121.         { 盛  岡 },{ap2:={0196-54-9005}},
  122.         { 仙  台 },{ap2:={022-227-5056}},
  123.         { 山  形 },{ap2:={0236-31-2133}},
  124.         { 米  沢 },{ap2:={0238-24-2591}},
  125.         { 福  島 },{ap2:={0245-54-0172}},
  126.         { いわき },{ap2:={0246-21-6783}},
  127.         { 郡  山 },{ap2:={0249-25-9427}},
  128.         { 新  潟 },{ap2:={025-243-2308}},
  129.         { 柏  崎 },{ap2:={0257-21-1420}},
  130.         { 長  岡 },{ap2:={0258-32-3202}},
  131.         { 長  野 },{ap2:={0262-32-1175}},
  132.         { 松  本 },{ap2:={0263-25-9409}},
  133.         { 諏  訪 },{ap2:={0266-57-0402}},
  134.         { 上  田 },{ap2:={0268-26-1711}},
  135.         { 前  橋 },{ap2:={0272-33-4209}},
  136.         { 高  崎 },{ap2:={0273-27-8743}},
  137.         { 太  田 },{ap2:={0276-38-4860}},
  138.         { 直  接 },{setTEL},
  139.         { 次  項 },{NEXT1},
  140.         { 終  了 },);
  141. };
  142.  
  143. /*    ２４００ｂｐｓのＡＰのリスト    */
  144. %set2400{
  145.     %setTEL    {
  146.     SNDMSG({nyuryo_f.snd});
  147.     footnote({2400bpsのAPの電話番号を入力して下さい});
  148.     ap:=@input({2400bpsのAPの電話番号を入力して下さい});
  149.     };
  150.  
  151.     %NEXT1{
  152.     SNDMSG({erande_f.snd});
  153.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  154.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  155.         { 長  野 },{ap:={0262-37-3550}},
  156.         { 松  本 },{ap:={0263-28-3791}},
  157.         { 伊  那 },{ap:={0265-76-7891}},
  158.         { 諏  訪 },{ap:={0266-57-1904}},
  159.         { 上  田 },{ap:={0268-26-5245}},
  160.         { 伊勢崎 },{ap:={0270-21-4526}},
  161.         { 前  橋 },{ap:={0272-35-5764}},
  162.         { 高  崎 },{ap:={0273-28-0790}},
  163.         { 太  田 },{ap:={0276-38-6451}},
  164.         { 桐  生 },{ap:={0277-46-3206}},
  165.         { 小  山 },{ap:={0285-25-7699}},
  166.         { 宇都宮 },{ap:={0286-21-6141}},
  167.         { 水  戸 },{ap:={0292-28-2812}},
  168.         { 日  立 },{ap:={0294-23-4790}},
  169.         { 土  浦 },{ap:={0298-22-7498}},
  170.         { 鹿  島 },{ap:={0299-93-2575}},
  171.         { 東京１ },{ap:={03-3788-9111}},
  172.         { 東京２ },{ap:={03-5476-8801}},
  173.         { 東京３ },{ap:={03-5443-0411}},
  174.         { 武蔵野 },{ap:={0422-42-4916}},
  175.         { 府  中 },{ap:={0423-68-5531}},
  176.         { 調  布 },{ap:={0424-99-0711}},
  177.         { 立  川 },{ap:={0425-25-7298}},
  178.         { 八王子 },{ap:={0426-28-3047}},
  179.         { 相模原 },{ap:={0427-53-7433}},
  180.         { 青  梅 },{ap:={0428-24-8954}},
  181.         { 所  沢 },{ap:={0429-94-4321}},
  182.         { 直  接 },{setTEL},
  183.         { 次  項 },{NEXT2},
  184.         { 終  了 },);
  185.     };
  186.  
  187.     %NEXT2{
  188.     SNDMSG({erande_f.snd});
  189.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  190.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  191.         { 千  葉 },{ap:={043-224-6007}},
  192.         { 市  原 },{ap:={0436-42-1221}},
  193.         { 君  津 },{ap:={0439-55-1635}},
  194.         { 川  崎 },{ap:={044-246-5347}},
  195.         { 横  浜 },{ap:={045-471-4051}},
  196.         { 厚  木 },{ap:={0462-24-9719}},
  197.         { 平  塚 },{ap:={0463-24-5082}},
  198.         { 小田原 },{ap:={0465-32-1982}},
  199.         { 藤  沢 },{ap:={0466-26-8432}},
  200.         { 鎌  倉 },{ap:={0467-83-7701}},
  201.         { 横須賀 },{ap:={0468-22-9425}},
  202.         { 我孫子 },{ap:={0471-85-4582}},
  203.         { 松  戸 },{ap:={0473-66-6011}},
  204.         { 船  橋 },{ap:={0474-33-3716}},
  205.         { 成  田 },{ap:={0476-22-9201}},
  206.         { 川  口 },{ap:={048-225-8410}},
  207.         { 大  宮 },{ap:={048-649-3640}},
  208.         { 熊  谷 },{ap:={0485-27-0672}},
  209.         { 越  谷 },{ap:={0489-65-9152}},
  210.         { 川  越 },{ap:={0492-41-2630}},
  211.         { 本  庄 },{ap:={0495-22-7200}},
  212.         { 名古屋 },{ap:={052-583-6681}},
  213.         { 浜  松 },{ap:={053-454-0224}},
  214.         { 豊  橋 },{ap:={0532-56-4442}},
  215.         { 静  岡 },{ap:={054-271-4033}},
  216.         { 清  水 },{ap:={0543-54-5050}},
  217.         { 甲  府 },{ap:={0552-31-2060}},
  218.         { 直  接 },{setTEL},
  219.         { 次  項 },{NEXT3},
  220.         { 終  了 },);
  221.     };
  222.  
  223.     %NEXT3{
  224.     SNDMSG({erande_f.snd});
  225.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  226.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  227.         {富士吉田},{ap:={0555-24-3470}},
  228.         { 沼  津 },{ap:={0559-52-1337}},
  229.         { 瀬  戸 },{ap:={0561-85-5545}},
  230.         { 岡  崎 },{ap:={0564-52-4660}},
  231.         { 豊  田 },{ap:={0565-33-4122}},
  232.         { 安  城 },{ap:={0566-77-8175}},
  233.         { 小  牧 },{ap:={0568-76-8210}},
  234.         { 常  滑 },{ap:={0569-35-6971}},
  235.         { 高  山 },{ap:={0577-36-2925}},
  236.         { 岐  阜 },{ap:={0582-63-0827}},
  237.         { 大  垣 },{ap:={0584-82-4632}},
  238.         { 一  宮 },{ap:={0586-23-1160}},
  239.         {   津   },{ap:={0592-29-2465}},
  240.         { 四日市 },{ap:={0593-54-4750}},
  241.         { 上  野 },{ap:={0595-24-7491}},
  242.         { 松  坂 },{ap:={0598-21-3390}},
  243.         { 大  阪 },{ap:={06-944-3660}},
  244.         { 牧  方 },{ap:={0720-43-3136}},
  245.         {河内長野},{ap:={0721-56-6703}},
  246.         {   堺   },{ap:={0722-28-6442}},
  247.         { 貝  塚 },{ap:={0724-39-9238}},
  248.         { 和  泉 },{ap:={0725-46-5501}},
  249.         { 茨  木 },{ap:={0726-61-5512}},
  250.         { 池  田 },{ap:={0727-54-2921}},
  251.         { 八  尾 },{ap:={0729-24-4146}},
  252.         { 和歌山 },{ap:={0734-32-9244}},
  253.         { 奈  良 },{ap:={0742-27-7294}},
  254.         { 直  接 },{setTEL},
  255.         { 次  項 },{NEXT4},
  256.         { 終  了 },);
  257.     };
  258.  
  259.     %NEXT4{
  260.     SNDMSG({erande_f.snd});
  261.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  262.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  263.         { 八日市 },{ap:={0748-23-5021}},
  264.         { 彦  根 },{ap:={0749-24-9643}},
  265.         { 京  都 },{ap:={075-211-1140}},
  266.         { 金  沢 },{ap:={0762-60-0552}},
  267.         { 富  山 },{ap:={0764-42-7349}},
  268.         { 高  岡 },{ap:={0766-21-9941}},
  269.         { 福地山 },{ap:={0773-23-4724}},
  270.         { 大  津 },{ap:={0775-24-3048}},
  271.         { 福  井 },{ap:={0776-21-8753}},
  272.         { 神  戸 },{ap:={078-361-6135}},
  273.         { 姫  路 },{ap:={0792-84-4874}},
  274.         { 加古川 },{ap:={0794-22-6628}},
  275.         { 宝  塚 },{ap:={0797-85-8091}},
  276.         { 西  宮 },{ap:={0798-66-9106}},
  277.         { 広  島 },{ap:={082-246-7386}},
  278.         {   呉   },{ap:={0823-22-6735}},
  279.         { 岩  国 },{ap:={0827-23-6027}},
  280.         { 下  関 },{ap:={0832-23-5073}},
  281.         { 徳  山 },{ap:={0834-32-5464}},
  282.         { 防  府 },{ap:={0835-25-7787}},
  283.         { 宇  部 },{ap:={0836-22-3624}},
  284.         { 山  口 },{ap:={0839-23-8239}},
  285.         { 福  山 },{ap:={0849-26-7645}},
  286.         { 松  江 },{ap:={0852-27-7952}},
  287.         { 鳥  取 },{ap:={0857-24-9898}},
  288.         { 米  子 },{ap:={0859-32-7477}},
  289.         { 岡  山 },{ap:={086-292-3634}},
  290.         { 直  接 },{setTEL},
  291.         { 次  項 },{NEXT5},
  292.         { 終  了 },);
  293.     };
  294.  
  295.     %NEXT5{
  296.     SNDMSG({erande_f.snd});
  297.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  298.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  299.         { 倉  敷 },{ap:={086-424-9910}},
  300.         { 津  山 },{ap:={0868-28-4199}},
  301.         { 高  松 },{ap:={0878-62-2827}},
  302.         { 徳  島 },{ap:={0886-53-1962}},
  303.         { 高  知 },{ap:={0888-25-4930}},
  304.         { 宇和島 },{ap:={0895-23-3699}},
  305.         { 新居浜 },{ap:={0897-37-6545}},
  306.         { 今  治 },{ap:={0898-25-1277}},
  307.         { 松  山 },{ap:={0899-31-8037}},
  308.         { 福  岡 },{ap:={092-845-4490}},
  309.         { 北九州 },{ap:={093-533-5753}},
  310.         { 久留米 },{ap:={0942-37-4964}},
  311.         { 柳  川 },{ap:={0944-74-3291}},
  312.         { 佐  賀 },{ap:={0952-22-7944}},
  313.         { 佐世保 },{ap:={0956-23-6931}},
  314.         { 長  崎 },{ap:={0958-20-1442}},
  315.         { 熊  本 },{ap:={096-379-3171}},
  316.         { 大  分 },{ap:={0975-32-0461}},
  317.         { 中  津 },{ap:={0979-32-4280}},
  318.         { 浦  添 },{ap:={098-876-7244}},
  319.         { 延  岡 },{ap:={0982-22-8043}},
  320.         { 宮  崎 },{ap:={0985-32-7430}},
  321.         { 鹿児島 },{ap:={0992-50-0288}},
  322.         { 出  水 },{ap:={0996-63-0217}},
  323.         { 直  接 },{setTEL},
  324.         { 終  了 },);
  325.     };
  326.  
  327.     SNDMSG({erande_f.snd});
  328.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  329.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  330.         { 札  幌 },{ap:={011-221-3601}},
  331.         { 函  館 },{ap:={0138-26-8192}},
  332.         { 室  蘭 },{ap:={0143-43-8461}},
  333.         { 苫小牧 },{ap:={0144-33-5249}},
  334.         { 釧  路 },{ap:={0154-25-1798}},
  335.         { 帯  広 },{ap:={0155-26-1081}},
  336.         { 北  見 },{ap:={0157-25-0694}},
  337.         { 旭  川 },{ap:={0166-23-2694}},
  338.         { 弘  前 },{ap:={0172-26-2411}},
  339.         { 青  森 },{ap:={0177-39-0553}},
  340.         { 八  戸 },{ap:={0178-47-6507}},
  341.         { 秋  田 },{ap:={0188-66-0441}},
  342.         { 一  関 },{ap:={0191-23-6965}},
  343.         { 盛  岡 },{ap:={0196-53-4869}},
  344.         { 仙  台 },{ap:={022-213-8076}},
  345.         { 酒  田 },{ap:={0234-22-6510}},
  346.         { 鶴  岡 },{ap:={0235-25-9247}},
  347.         { 山  形 },{ap:={0236-33-2155}},
  348.         { 米  沢 },{ap:={0238-21-8613}},
  349.         {会津若松},{ap:={0242-32-7684}},
  350.         { 福  島 },{ap:={0245-54-1357}},
  351.         { いわき },{ap:={0246-24-3061}},
  352.         { 郡  山 },{ap:={0249-31-6153}},
  353.         { 新  潟 },{ap:={025-246-8320}},
  354.         { 上  越 },{ap:={0255-45-2751}},
  355.         { 柏  崎 },{ap:={0257-21-4965}},
  356.         { 長  岡 },{ap:={0258-37-1124}},
  357.         { 直  接 },{setTEL},
  358.         { 次  項 },{NEXT1},
  359.         { 終  了 },);
  360. };
  361.  
  362. /*    ＰＣ－ＶＡＮ＋のＡＰのリスト    */
  363. %setPLUS{
  364.     %setTEL    {
  365.     SNDMSG({nyuryo_f.snd});
  366.     footnote({PC-VAN+のAPの電話番号を入力して下さい});
  367.     ap3:=@input({PC-VAN+のAPの電話番号を入力して下さい});
  368.     };
  369.  
  370.     %NEXT1{
  371.     SNDMSG({erande_f.snd});
  372.     footnote({都市を指定して下さい（２４００ｂｐｓ）});
  373.     select({都市を指定して下さい（２４００ｂｐｓ）},99999,,
  374.         { 豊  橋 },{ap3:={0532-56-5621}},
  375.         { 静  岡 },{ap3:={054-272-5984}},
  376.         {美濃加茂},{ap3:={0574-28-4494}},
  377.         {   津   },{ap3:={0592-25-6618}},
  378.         { 大  阪 },{ap3:={06-943-8317}},
  379.         { 和歌山 },{ap3:={0734-33-7348}},
  380.         {大和高田},{ap3:={0745-23-3635}},
  381.         { 京  都 },{ap3:={075-255-0609}},
  382.         { 金  沢 },{ap3:={0762-33-7815}},
  383.         { 高  岡 },{ap3:={0766-265477}},
  384.         { 城  陽 },{ap3:={07745-6-5406}},
  385.         { 大  津 },{ap3:={0775-27-2582}},
  386.         { 神  戸 },{ap3:={078-361-9222}},
  387.         { 広  島 },{ap3:={082-248-4042}},
  388.         { 下  関 },{ap3:={0832-33-4692}},
  389.         { 徳  山 },{ap3:={0834-22-3280}},
  390.         { 山  口 },{ap3:={0839-20-1801}},
  391.         { 尾  道 },{ap3:={0848-46-6027}},
  392.         { 岡  山 },{ap3:={086-292-2141}},
  393.         { 高  松 },{ap3:={0878-62-0425}},
  394.         { 徳  島 },{ap3:={0886-53-1931}},
  395.         { 高  知 },{ap3:={0888-75-2702}},
  396.         { 新居浜 },{ap3:={0897-36-0053}},
  397.         { 松  山 },{ap3:={0899-34-3096}},
  398.         { 福  岡 },{ap3:={092-521-9908}},
  399.         { 久留米 },{ap3:={0942-30-1419}},
  400.         { 佐  賀 },{ap3:={0952-28-1082}},
  401.         { 浦  添 },{ap3:={098-879-6427}},
  402.         { 鹿児島 },{ap3:={0992-52-8914}},
  403.         { 直  接 },{setTEL},
  404.         { 終  了 },);
  405.     };
  406.  
  407.     SNDMSG({erande_f.snd});
  408.     footnote({都市を指定して下さい（ＰＣ－ＶＡＮ＋）});
  409.     select({都市を指定して下さい（ＰＣ－ＶＡＮ＋）},99999,,
  410.         { 札  幌 },{ap3:={011-261-6952}},
  411.         { 青  森 },{ap3:={0177-39-1091}},
  412.         { 八  戸 },{ap3:={0178-45-9002}},
  413.         { 秋  田 },{ap3:={0188-66-5793}},
  414.         { 盛  岡 },{ap3:={0196-25-9061}},
  415.         { 仙  台 },{ap3:={022-222-5131}},
  416.         { 福  島 },{ap3:={0245-54-1941}},
  417.         { 新  潟 },{ap3:={025-241-7351}},
  418.         { 三  条 },{ap3:={0256-33-8610}},
  419.         { 長  岡 },{ap3:={0258-39-3882}},
  420.         { 松  本 },{ap3:={0263-28-7560}},
  421.         { 高  崎 },{ap3:={0273-24-3913}},
  422.         { 宇都宮 },{ap3:={0286-43-4693}},
  423.         { 水  戸 },{ap3:={0292-28-6951}},
  424.         { 土  浦 },{ap3:={0298-21-4983}},
  425.         { 鹿  島 },{ap3:={0299-93-4511}},
  426.         { 東  京 },{ap3:={03-5443-0980}},
  427.         { 立  川 },{ap3:={0425-29-8745}},
  428.         { 八王子 },{ap3:={0426-22-2016}},
  429.         { 千  葉 },{ap3:={043-222-8806}},
  430.         { 横  浜 },{ap3:={045-473-9631}},
  431.         { 平  塚 },{ap3:={0463-24-9481}},
  432.         { 船  橋 },{ap3:={0474-35-0109}},
  433.         { 大  宮 },{ap3:={048-649-3847}},
  434.         { 東松山 },{ap3:={0493-24-8465}},
  435.         { 名古屋 },{ap3:={052-581-8171}},
  436.         { 浜  松 },{ap3:={053-458-9940}},
  437.         { 直  接 },{setTEL},
  438.         { 次  項 },{NEXT1},
  439.         { 終  了 },);
  440. };
  441.  
  442. /*    実行    */
  443. case(sel3,{ 1},{set1200},{ 2},{set2400},{ 3},{setPLUS});
  444.